﻿Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports Contracts
Imports Entities

Public Class ListBorrowers
  Inherits Albatross.ServerSide.Messaging.RequestHandler(Of ListBorrowersI)

  Public Overloads Overrides Function Handle(ByVal request As ListBorrowersI) As Albatross.Common.Messaging.Response
    Dim oResponse As ListBorrowersO
    Dim oBorrowers As List(Of Borrower)
    Dim oBorrower As Borrower
    Dim oBorrower2 As Borrower

    oBorrower = New Borrower
    oBorrower.FirstName = "Alex"
    oBorrower.LastName = "Smith"

    oBorrower2 = New Borrower
    oBorrower2.FirstName = "Mary"
    oBorrower2.LastName = "Smith"

    oBorrowers = New List(Of Borrower)
    oBorrowers.Add(oBorrower)
    oBorrowers.Add(oBorrower2)

    oResponse = New ListBorrowersO
    oResponse.MyBorrowers = oBorrowers

    Return oResponse
  End Function
End Class
